From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 22 Jan 2022 14:13:19 +0000 (+0100)
Subject: Speed up multisession--set-value-sqlite slightly
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~3297
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=573ec193be37dbac105c1047c6d52deaa388ac66;p=emacs.git

Speed up multisession--set-value-sqlite slightly

* lisp/emacs-lisp/multisession.el
(multisession--set-value-sqlite): Use `readablep'.
---

diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el
index 25307594c6d..d6f1ab98faa 100644
--- a/lisp/emacs-lisp/multisession.el
+++ b/lisp/emacs-lisp/multisession.el
@@ -218,10 +218,9 @@ DOC should be a doc string, and ARGS are keywords as applicable to
            (let ((print-length nil)
                  (print-circle t)
                  (print-level nil))
-             (prin1-to-string value))))
-      (condition-case nil
-          (ignore (read-from-string pvalue))
-        (error (error "Unable to store unreadable value: %s" pvalue)))
+             (readablep value))))
+      (when (and value (not pvalue))
+        (error "Unable to store unreadable value: %s" value))
       (sqlite-execute
        multisession--db
        "insert into multisession(package, key, sequence, value) values(?, ?, 1, ?) on conflict(package, key) do update set sequence = sequence + 1, value = ?"